﻿Imports System.Data

Public Class List

    Dim view As DataView

    Sub New(ByVal view As DataView)

    End Sub
    Sub New(ByVal table As DataTable, ByVal filter As String)
        view = New DataView(table, filter, "", DataViewRowState.None)
    End Sub

    Default Public Property Item(ByVal index As Integer) As Object
        Get
            Return Me.view(index)
        End Get
        Set(ByVal value As Object)
            '
        End Set
    End Property
    Default Public Property Item(ByVal index As Integer, ByVal propindex As Integer) As Object
        Get
            Return Me.view(index)(propindex)
        End Get
        Set(ByVal value As Object)
            Me.view(index)(propindex) = value
        End Set
    End Property
    Default Public Property Item(ByVal index As Integer, ByVal propname As String) As Object
        Get
            Return Me.view(index)(propname)
        End Get
        Set(ByVal value As Object)
            Me.view(index)(propname) = value
        End Set
    End Property
    Default Public Property Item(ByVal predicate As Func(Of Object, Boolean)) As Object
        Get

        End Get
        Set(ByVal value As Object)

        End Set
    End Property
    Default Public Property Item(ByVal predicate As String) As Object
        Get
            'Return view.FindRows
        End Get
        Set(ByVal value As Object)

        End Set
    End Property
End Class
